Imports System.Text

Public Class util
    Public Shared Function JoinStr(ByVal ar As ArrayList, ByVal joiner As String) As String
        Dim i As Integer
        Dim sb As New StringBuilder
        For i = 0 To ar.Count - 2
            sb.Append(ar.Item(i))
            sb.Append(joiner)
        Next
        sb.Append(ar.Item(ar.Count - 1))
        Return sb.ToString
    End Function
End Class
